
null {1}CY=39
   5 clear ;CX=-51;CY=0;print "AMAZED IN SPACE!";for A=0to 999;next A;goto 10
   8 &(21)=0;return 
  10 J=0
  20 NT=0;clear ;BC=0;FC=126;input "DEGREE 0F DIFFICULTY?      0=EASY to 2=HARD"R
  30 print "WHAT PATH SIZE?",#3,5+R," to 20";input "  "L
  40 print "WHAT HEIGHT? 2 to ",#0,36div L;input "  "H;V=Lmul H;if V>36goto 40
  50 print "WHAT WIDTH? 2 to ",#0,74div L;input "  "W;U=Lmul W;if U>74goto 50
CY=39
  60 clear ;for A=1to 100;X=0;Y=0;box rnd (160)-80,rnd (88)-44,1,1,1;next A;box 0,0,2mul U+8,2mul V+8,2
  70 line -U,V,4;line U,V,1;line U,-V+L,1;line U,-V,4;line -U,-V,1;line -U,V-L,1;line X,Y,4;P=(Wmul Hmul (100div L))
  80 for Q=1to P;A=(rnd (3)-2)mul L;B=(rnd (3)-2)mul L;X=X+A
  83 if X<-U X=U
  85 if X>U X=-U
  90 gosub 340;line X,Y,1;Y=Y+B;if Y<-V Y=V
 110 if Y>V Y=-V
 120 line X,Y,4;P=P-1;gosub 340
CY=39
 130 CY=40;print "C0UNTD0WN=",#2,P;next Q;CY=40;print "                  ";C=0;T=0
 140 X=-U-2;Y=V-(Ldiv 2);M=0;N=0;&(23)=255;BC=0
 150 D=JX(1);E=JY(1);M=M+D;N=N+E;if M>3M=3
 160 if M<-3M=-3
 170 if N>3N=3
 180 if N<-3N=-3
 190 X=X+M;Y=Y+N;if D=0if E=0gosub 8;goto 210
 200 &(21)=255
 210 T=T+1;CY=44;print #4,T;for F=0to 1;box X, Y,3,3,3;next F
CY=39
 220 if (PX(X,Y))+(PX(X+R,Y+R))+(PX(X+R,Y-R))+(PX(X-R,Y+R))+(PX(X-R,Y-R))goto 270
 230 if X>Uif Y<-V+Lgosub 8;goto 300
 240 if X<-Uif Y<V-Lgosub 8;goto 290
 250 if X<-Uif Y>Vgosub 8
 260 goto 150
 270 gosub 8;C=C+1;CX=-75;CY=44;print #0,C," CRASH",;if C#1print "ES
 280 for A=1to 25;BC=80;NT=5;MU="4";BC=112;next A;NT=0;CX=-75;CY=44;print "                        ";goto 140
CY=39
 290 NT=5;CY=44;print "0UTER LIMITS-0FF LIMITS!";NT=0;CY=44;print "                        ";goto 140
 300 NT=3;clear ;print " FAR 0UT-Y0U DID IT!";print " 0NLY",#2,C," CRASH",;if C#1print "ES
 310 print ;print "TIME=",#8,T;S=((R+1)mul Hmul W)mul 72div ((Tmul L)div 10)mul 10;print "SC0RE=",#7,S;if S>J J=S
 320 print ;print "TODAY'S HIGH SC0RE=",#2,J;print ;input "SAME GAME?  0=N0  1=YES"Z;if Z NT=0;goto 60
 330 goto 20
 340 if PX(X,Y)line X,Y,4
 350 return 
 500 print "CY=39";CY=39;return 
:return ;run 
>